home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / intee1.pov < prev    next >
Encoding:
Text File  |  1992-05-06  |  1.9 KB  |  75 lines
  1. // Persistence of Vision Raytracer
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.  Image by Dan Farmer.
  4. // Demonstrates CSG intersection,  layered stone texture.
  5. // Time: about 3 hours @640x480+a0.2 on 486/33
  6.  
  7. #include "include.inc"
  8.  
  9. camera {
  10.    location <0.0  10  -26>
  11.    direction <0.0 0.0  1.0>
  12.    up  <0.0  1.0  0.0>
  13.    right <1.33333 0.0 0.0>
  14.    look_at <0 0 0>
  15. }
  16.  
  17.  
  18. // Light source
  19. object { light_source { <-10 20 -25> color White  }}
  20. object { light_source { <0 0 0> color White  }}
  21.  
  22.  
  23.  
  24. // Light source INSIDE OF OBJECT.  Careful.. if you move either,  move both.
  25. //object { light_source { <0 0 0> color DimGray  }}
  26.  
  27. #declare Color1A = color DustyRose
  28. #declare Color1B = color DarkSlateGray
  29. #declare Color2A = color DarkSlateGray
  30.  
  31. object {
  32.     intersection {
  33.         quadric { Cylinder_X }
  34.         quadric { Cylinder_Y }
  35.         quadric { Cylinder_X inverse scale <1 0.5 0.5> }  // small hole
  36.         quadric { Cylinder_Y inverse scale <0.5 1 0.5> }  // ditto
  37.     }
  38.  
  39. // A great looking pinkish marble.  Except that it doesn't use marble
  40. // or agate... it's all done with bozo and granite!
  41.  
  42.     // Underlying surface is very subtly mottled with bozo in pinks and
  43.     // grays.
  44.     texture {
  45.         ambient 0.25
  46.         bozo
  47.         turbulence 0.25
  48.         color_map {
  49.             [0.0 1.0 color red 0.9 green 0.75 blue 0.75
  50.                      color red 0.6 green 0.6 blue 0.6 ]
  51.         }
  52.         scale <.4 .4 .4>
  53.     }
  54.  
  55.     // Second layer texture has some alpha values, yet a fair amount of color
  56.     // Viening is kept quite thin.
  57.     texture {
  58.         Glossy
  59.         granite
  60.         color_map {
  61.             [0.0 0.9 color Color1A alpha 1 color Color1A alpha 0.5 ]
  62.             [0.9 1.0  color Color1B color Color1B ]
  63.         }
  64.         scale <2 2 2>
  65.         phong 0.25
  66.         phong_size 75
  67.         brilliance 4
  68.     }
  69.  
  70.  
  71. scale <10 10 10>
  72. rotate <0 45 0>
  73. }
  74.  
  75.